'   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 '     T E S T   -   A L R E A D Y   U S E D   V A R S 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 S l o t _ R u n S c o p e   =   0 
 
 S l o t _ S o u n d L e v e l   =   0 
 
 S l o t _ S o u n d L e v e l 2 n d H a r m   =   0 
 
 S l o t _ S o u n d L e v e l 3 r d H a r m   =   0 
 
 S o u n d L e v e l M i n   =   0 
 
 S o u n d N o i s e M a x   =   0 
 
 S o u n d D i s t 2 n d H a r m M a x   =   0 
 
 S o u n d D i s t 3 r d H a r m M a x   =   0 
 
 
 
 S l o t _ S 0   =   0 
 
 S l o t _ S 1   =   0 
 
 S l o t _ S 2   =   0 
 
 S l o t _ S 3   =   0 
 
 S l o t _ F r e q   =   0 
 
 
 
 S e q u e n c e F i l e N a m e   =   " " 
 
 S e q u e n c e   =   " " 
 
 S e q u e n c e C m d   =   " " 
 
 S e q u e n c e I n d e x   =   0 
 
 S e q u e n c e L e n g t h   =   0 
 
 
 
 
 
 ' S t o p 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       A U D I O   T E S T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R u n S c o p e 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 2 n d H a r m 
 
 V a r i a b l e   N u m e r i c   S l o t _ S o u n d L e v e l 3 r d H a r m 
 
 V a r i a b l e   N u m e r i c   S o u n d L e v e l M i n 
 
 V a r i a b l e   N u m e r i c   S o u n d N o i s e M a x 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 2 n d H a r m M a x   '   M a x   l e v e l   f o r   t h e   2 n d   h a r m o n i c s 
 
 V a r i a b l e   N u m e r i c   S o u n d D i s t 3 r d H a r m M a x   '   M a x   l e v e l   f o r   t h e   3 r d   h a r m o n i c s 
 
 
 
 '   '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C O L O R   R E C O G N I T I O N 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 0 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 1 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 2 
 
 V a r i a b l e   N u m e r i c   S l o t _ S 3 
 
 V a r i a b l e   N u m e r i c   S l o t _ F r e q 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     C O R E   X Y 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D e s t X 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 V a r i a b l e   N u m e r i c   D e s t Y 	 	 	 	 '   d e s t i n a t i o n   i n   m m   c o o r d s 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E M E N T S 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   P O W E R _ I N 
 
 V a r i a b l e   N u m e r i c   P O W E R _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ I N 
 
 V a r i a b l e   N u m e r i c   U S B 3 _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B C _ I N 
 
 V a r i a b l e   N u m e r i c   U S B C _ O U T 
 
 V a r i a b l e   N u m e r i c   H D M I _ I N 
 
 V a r i a b l e   N u m e r i c   H D M I _ O U T 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ I N 
 
 V a r i a b l e   N u m e r i c   U S B P W R _ O U T 
 
 V a r i a b l e   N u m e r i c   O N O F F _ I N 
 
 V a r i a b l e   N u m e r i c   O N O F F _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ U P 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ O U T 
 
 V a r i a b l e   N u m e r i c   V O L U M E _ I N _ D W 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ I N 
 
 V a r i a b l e   N u m e r i c   M E M O R Y _ O U T 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ I N 
 
 V a r i a b l e   N u m e r i c   H E A R S E T _ O U T 
 
 V a r i a b l e   N u m e r i c   P E N _ D O W N 
 
 V a r i a b l e   N u m e r i c   P E N _ U P 
 
 V a r i a b l e   N u m e r i c   P E N _ T O U C H _ T I M E 
 
 
 
 V a r i a b l e   N u m e r i c   S L O T _ P O W E R 	 	 	 '   d i g i t a l   m o t o r   1 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B 3 	 	 	 '   d i g i t a l   m o t o r   2 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B C 	 	 	 '   d i g i t a l   m o t o r   3 
 
 V a r i a b l e   N u m e r i c   S L O T _ H D M I 	 	 	 '   d i g i t a l   m o t o r   4 
 
 V a r i a b l e   N u m e r i c   S L O T _ U S B P W R 	 	 '   d i g i t a l   m o t o r   5 
 
 V a r i a b l e   N u m e r i c   S L O T _ O N O F F 	 	 	 '   d i g i t a l   m o t o r   6 
 
 V a r i a b l e   N u m e r i c   S L O T _ V O L U M E 	 	 '   d i g i t a l   m o t o r   7 
 
 V a r i a b l e   N u m e r i c   S L O T _ M E M O R Y 	 	 '   d i g i t a l   m o t o r   8 
 
 V a r i a b l e   N u m e r i c   S L O T _ H E A R S E T 	 	 '   d i g i t a l   m o t o r   9 
 
 V a r i a b l e   N u m e r i c   S L O T _ P E N 	 	 	 '   d i g i t a l   m o t o r   1 0 
 
 
 
 ' L a b e l   " S T A R T   L O O P " 
 
 ' 	 v 2   =   I n p u t   " H o w   m a n y   l o o p s   ? " 
 
 ' 	 F o r   v 1   =   1   T o   v 2 
 
 ' 	 	 G o s u b   " A L L   I N " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 	 G o s u b   " A L L   O U T " 
 
 ' 	 	 W a i t   S e c o n d s   0 . 5 
 
 ' 	 N e x t 
 
 ' R e t u r n 
 
 
 
 L a b e l   " P O W E R   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   C h o c o l a t e 
 
 	 B u t t o n   2   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 L a b e l   " P O W E R   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ P O W E R 
 
 	 M o v e _ D e s t   =   P O W E R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 	 B u t t o n   1   C o l o r   L i m e 
 
 	 B u t t o n   2   C o l o r   C h o c o l a t e 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B 3   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B 3   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B 3 
 
 	 M o v e _ D e s t   =   U S B 3 _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B C   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B C   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B C 
 
 	 M o v e _ D e s t   =   U S B C _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H D M I   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H D M I   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ H D M I 
 
 	 M o v e _ D e s t   =   H D M I _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B P W R   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " U S B P W R   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ U S B P W R 
 
 	 M o v e _ D e s t   =   U S B P W R _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " O N O F F   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " O N O F F   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ O N O F F 
 
 	 M o v e _ D e s t   =   O N O F F _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   U P " 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ U P 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " V O L U M E   D W " 
 
 	 M o v e _ S l o t   =   S L O T _ V O L U M E 
 
 	 M o v e _ D e s t   =   V O L U M E _ I N _ D W 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " M E M O R Y   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " M E M O R Y   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ M E M O R Y 
 
 	 M o v e _ D e s t   =   M E M O R Y _ I N 
 
 	 M o v e _ S p e e d   =   3 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H E A R S E T   O U T " 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ O U T 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " H E A R S E T   I N " 
 
 	 M o v e _ S l o t   =   S L O T _ H E A R S E T 
 
 	 M o v e _ D e s t   =   H E A R S E T _ I N 
 
 	 M o v e _ S p e e d   =   6 0 
 
 	 G o s u b   M o v e S l o w 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   U P " 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   D O W N " 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   S I N G L E " 
 
 	 G o s u b   " P E N   D O W N " 
 
 	 W a i t   S e c o n d s   0 . 3 5 
 
 	 G o s u b   " P E N   U P " 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   D O U B L E " 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 W a i t   S e c o n d s   0 . 2 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 R e t u r n 
 
 
 
 L a b e l   " P E N   T Y P I N G " 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ D O W N 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 W a i t   S e c o n d s   P E N _ T O U C H _ T I M E 
 
 	 M o v e _ S l o t   =   S L O T _ P E N 
 
 	 M o v e _ D e s t   =   P E N _ U P 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ D e s t 
 
 	 
 
 	 ' B u t t o n   1 0   T e x t   " P E N   U P " 
 
 R e t u r n 
 
 
 
 L a b e l   " P O W E R   C Y C L E " 
 
 	 B u t t o n   4   C o l o r   F l a s h i n g 8   Y e l l o w 5   R e d 5 
 
 	 G o s u b   " O N O F F   I N " 
 
 	 W a i t   S e c o n d s   0 . 6 
 
 	 G o s u b   " O N O F F   O U T " 
 
 	 W a i t   S e c o n d s   3 
 
 	 B u t t o n   4   C o l o r   R e d 
 
 R e t u r n 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E R V O - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e _ S l o t 
 
 V a r i a b l e   N u m e r i c   M o v e _ S p e e d 
 
 V a r i a b l e   N u m e r i c   M o v e _ D e s t 
 
 V a r i a b l e   N u m e r i c   M o v e _ P o s 
 
 
 
 L a b e l   M o v e S l o w 
 
 	 M o v e _ P o s   =   S l o t ( M o v e _ S l o t ) 
 
 	 I f   M o v e _ D e s t   >   M o v e _ P o s 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   +   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   >   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E l s e 
 
 	 	 M o v e _ P o s   =   M o v e _ P o s   -   M o v e _ S p e e d 
 
 	 	 I f   M o v e _ P o s   <   M o v e _ D e s t 
 
 	 	 	 M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 E n d I f 
 
 	 E n d I f 
 
 	 S l o t ( M o v e _ S l o t )   =   M o v e _ P o s 
 
 	 W a i t   S e c o n d s   0 . 0 1 
 
 	 I f   M o v e _ P o s   =   M o v e _ D e s t 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 G o t o   M o v e S l o w 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   M O V E   S L O W 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t X   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ D e s t Y   	 '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   M o v e S l o w X Y _ S p e e d   	 '   s p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   M S V 1 
 
 V a r i a b l e   N u m e r i c   M S V 2 
 
 V a r i a b l e   N u m e r i c   M S V 3 
 
 V a r i a b l e   N u m e r i c   M S V 4 
 
 
 
 L a b e l   M o v e S l o w X Y 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   M o v e S l o w X Y _ S p e e d   <   0 . 1 
 
 	 	 M o v e S l o w X Y _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 M S V 1   =   M o v e S l o w X Y _ D e s t X   -   D e s t X 
 
 	 M S V 2   =   M o v e S l o w X Y _ D e s t Y   -   D e s t Y 
 
 	 M S V 3   =   M S V 1   *   M S V 1 
 
 	 M S V 3   =   M S V 3   +   M S V 2   *   M S V 2 
 
 	 M S V 3   =   S q r t ( M S V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 M S V 4   =   M S V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 M S V 4   =   I n t ( M S V 4   /   M o v e S l o w X Y _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   M S V 4   =   0 
 
 	 	 D e s t X   =   M o v e S l o w X Y _ D e s t X 
 
 	 	 D e s t Y   =   M o v e S l o w X Y _ D e s t Y 
 
 	 	 R e t u r n 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 M S V 1   =   ( M o v e S l o w X Y _ D e s t X   -   D e s t X )   /   M S V 4 
 
 	 M S V 2   =   ( M o v e S l o w X Y _ D e s t Y   -   D e s t Y )   /   M S V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   M S V 3   =   1   T o   M S V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   M S V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   M S V 2 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   D R A W   C I R C L E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ X   	         '   C e n t e r   X   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ Y   	         '   C e n t e r   Y   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ R a d i u s     '   R a d i u s   i n   m m 
 
 V a r i a b l e   N u m e r i c   D r a w C i r c l e _ S p e e d   	 '   S p e e d   i n   m m / s e c 
 
 
 
 V a r i a b l e   N u m e r i c   D C V 1 
 
 V a r i a b l e   N u m e r i c   D C V 2 
 
 V a r i a b l e   N u m e r i c   D C V 3 
 
 V a r i a b l e   N u m e r i c   D C V 4 
 
 
 
 L a b e l   D r a w C i r c l e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t e s t   f o r   v e r y   l o w   s p e e d 
 
 	 I f   D r a w C i r c l e _ S p e e d   <   0 . 1 
 
 	 	 D r a w C i r c l e _ S p e e d   =   1 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 D C V 3   =   D r a w C i r c l e _ R a d i u s   *   M a t h _ P I   *   2 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 D C V 4   =   D C V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 D C V 4   =   I n t ( D C V 4   /   D r a w C i r c l e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   t o o   m u c h   s p e e d   ? 
 
 	 I f   D C V 4   <   1 6 
 
 	 	 D C V 4   =   1 6 
 
 	 E n d I f 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 D C V 1   =   2   *   M a t h _ P I   /   D C V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   D C V 3   =   0   T o   D C V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   c i r c l e 
 
 	 	 D C V 2   =   D C V 3   *   D C V 1 
 
 	 	 D e s t X   =   D r a w C i r c l e _ X   +   D r a w C i r c l e _ R a d i u s   *   S i n ( D C V 2 ) 
 
 	 	 D e s t Y   =   D r a w C i r c l e _ Y   +   D r a w C i r c l e _ R a d i u s   *   C o s ( D C V 2 ) 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   m o v e   a n d   w a i t 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S T E P P E R - M O T O R S   a n d   P E N   a c t i o n   S L I D E 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t X   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ D e s t Y   	   '   d e s t i n a t i o n   i n   m m 
 
 V a r i a b l e   N u m e r i c   S l i d e _ S p e e d   	   '   s p e e d   i n   m m / s e c 
 
 V a r i a b l e   N u m e r i c   S l i d e _ P e n U p T i m e   '   p e n - u p   t i m e   i n   m S   f r o m   s t a r t 
 
 
 
 V a r i a b l e   N u m e r i c   S L V 1 
 
 V a r i a b l e   N u m e r i c   S L V 2 
 
 V a r i a b l e   N u m e r i c   S L V 3 
 
 V a r i a b l e   N u m e r i c   S L V 4 
 
 V a r i a b l e   N u m e r i c   S L V 5 
 
 
 
 L a b e l   S L I D E 
 
 	 S l i d e _ D e s t X   =   5 0                                     ' 5 0 
 
 	 S l i d e _ D e s t Y   =   1 3 0                                   ' 1 3 0 
 
 	 S l i d e _ S p e e d   =   2 0 0                                   ' 2 0 0 
 
 	 S l i d e _ P e n U p T i m e   =   5 0 0                           ' 5 0 0 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   m o v e m e n t   i n   m m 
 
 	 S L V 1   =   S l i d e _ D e s t X   -   D e s t X 
 
 	 S L V 2   =   S l i d e _ D e s t Y   -   D e s t Y 
 
 	 S L V 3   =   S L V 1   *   S L V 1 
 
 	 S L V 3   =   S L V 3   +   S L V 2   *   S L V 2 
 
 	 S L V 3   =   S q r t ( S L V 3 ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   c a l c   t h e   l o o p s   c o u n t 
 
 	 S L V 4   =   S L V 3   /   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 S L V 4   =   I n t ( S L V 4   /   S l i d e _ S p e e d ) 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   i n c r e m e n t s 
 
 	 S L V 1   =   ( S l i d e _ D e s t X   -   D e s t X )   /   S L V 4 
 
 	 S L V 2   =   ( S l i d e _ D e s t Y   -   D e s t Y )   /   S L V 4 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p r e p a r e   t h e   p e n - u p   t i m e 
 
 	 S L V 5   =   S l i d e _ P e n U p T i m e   /   1 0 0 0 
 
 	 S L V 5   =   I n t ( S L V 5   /   0 . 0 1 )   ' < < <   l o o p   t i m e 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   d o w n 
 
 	 S l o t ( S L O T _ P E N )   =   P E N _ D O W N 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   l o o p   f o r   v 4   t i m e s 
 
 	 F o r   S L V 3   =   1   T o   S L V 4 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   i n c r e m e n t ,   m o v e   a n d   w a i t 
 
 	 	 D e s t X   =   D e s t X   +   S L V 1 
 
 	 	 D e s t Y   =   D e s t Y   +   S L V 2 
 
 	 	 W a i t   S e c o n d s   0 . 0 1   ' < < <   l o o p   t i m e 
 
 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   p e n   u p 
 
 	 	 I f   S L V 3   =   S L V 5 
 
 	 	 	 S l o t ( S L O T _ P E N )   =   P E N _ U P 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     R O T A T I O N S   V E R T I C A L / H O R I Z Z O N T A L 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t _ R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l   " R O T A T E   V E R T " 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   " R O T A T E   H O R Z " 
 
 	 	 	 G o t o   E x i t R o t a t e V e r t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   " R O T A T E   H O R Z " 
 
 ' 
 
 L a b e l   E x i t R o t a t e V e r t 
 
 R e t u r n 
 
 
 
 L a b e l   " R O T A T E   M I D L " 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 	 F o r   v 1   =   1   T o   6 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 G o t o   E x i t R o t a t e M i d l 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 ' 
 
 L a b e l   E x i t R o t a t e M i d l 
 
 R e t u r n 
 
 
 
 L a b e l   " R O T A T E   H O R Z " 
 
 	 S l o t   9 9 8   =   6 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t _ R o t H V _ C u r r e n t )   >   S l o t _ R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   " R O T A T E   V E R T " 
 
 	 	 	 G o t o   E x i t R o t a t e H o r z 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t _ R o t H V _ D r i v e   =   6 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   " R O T A T E   V E R T " 
 
 	 ' 
 
 L a b e l   E x i t R o t a t e H o r z 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   s 1 
 
 ' W A T C H   l e n ( s 1 ) 
 
 ' W A T C H   v 1 
 
 ' W A T C H   v 2 
 
 ' W A T C H   v 3 
 
 ' E X E C   D e s t X   =   1 2 
 
 